home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / HELP.ELC < prev    next >
Text File  |  1993-03-28  |  11KB  |  94 lines

  1. ;;; compiled by @win386 on Sat Mar 13 01:38:16 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/help.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar help-map (make-sparse-keymap) "\
  14. Keymap for characters following the Help key.")
  15. (byte-code "└    Mê┬    ├─#ê┬    ┼─#ê┬    ╞╟#ê┬    ╚╔#ê┬    ╩╦#ê┬    ╠═#ê┬    ╬╧#ê┬    ╨╤#ê┬    ╥╙#ê┬    ╘╒#ê┬    ╓╫#ê┬    ╪╫#ê┬    ┘┌#ê┬    █▄#ê┬    ▌▐#ê┬    ▀α#ê┬    ßα#ê┬    Γπ#ê┬    Σσ#ê┬    µτ#ê┬    ΦΘ#êΩδMç" [help-command help-map define-key (control h) help-for-help "?" "" describe-copying "" describe-distribution "" describe-no-warranty "a" command-apropos "b" describe-bindings "p" describe-pointer "c" describe-key-briefly "k" describe-key "d" describe-function "f" "i" info "l" view-lossage "m" describe-mode "" view-emacs-news "n" "s" describe-syntax "t" help-with-tutorial "w" where-is "v" describe-variable deprecated-help-command #[nil "└┴!┬=½ë├─┼ \"ëç╟ ç" [key-binding "" help-command character-to-event 8 allocate-event unread-command-event help-for-help] 3 nil nil]] 4)
  16. (fset 'help-with-tutorial #[nil "└┴!├ ê─\n!½ç┼─\n!!¬╛┼╞\n!!ê\n└╚!    ╩ ╠└═\"!êebê╧╨!ê╤yê`╩ê`|ê╥╙╘ !╒e`\"Z╓Z!êebê╫╩!)ç" [expand-file-name "~/TUTORIAL" file delete-other-windows get-file-buffer switch-to-buffer create-file-buffer buffer-file-name "~/" default-directory nil buffer-auto-save-file-name insert-file-contents "TUTORIAL" exec-directory search-forward "\n<<" 0 newline window-height selected-window count-lines 6 set-buffer-modified-p] 5 "\
  17. Select the Emacs learn-by-doing tutorial." nil])
  18. (fset 'describe-key-briefly #[(key) "└    !ë½ä\n¿½ê├─┼    !\"¬É├╞┼    !\n9½â\n¬â╟\n!#)ç" [key-binding key defn message "%s is undefined" key-description "%s runs the command %s" prin1-to-string] 6 "\
  19. Print the name of the function KEY invokes.  KEY is a string." "kDescribe key briefly: "])
  20. (fset 'print-help-return-message #[(&optional function) "└    !?¡ù\n«ü├─┼╞!½è½â╚¬ä╔¬ü╩!!ç" [get-buffer-window standard-output function message substitute-command-keys one-window-p t pop-up-windows "Type \\[delete-other-windows] to remove help window." "Type \\[switch-to-buffer] RET to remove help window." "Type \\[switch-to-buffer-other-window] RET to restore old contents of help window."] 4 "\
  21. Display or return message saying how to restore windows after help command.
  22. Computes a message and applies the argument FUNCTION to it.
  23. If FUNCTION is nil, applies `message' to it, thus printing it."])
  24. (fset 'describe-key #[(key) "└┬ !½╛ G─U½╕┼ ╞H!½▒ ╞H╚!╔!Dë@╩=½ä    A@    ó╦=½ä    A@    :½ç    A¼â    @)¬ä╠ !    ½ä    ¿½ê═╬╧ !\"¬╤╨É╤    !ê╥╙!ê    ;¼à┬    !½¬╠    !╥╒!ê½Ü╥╓!ê╥!ê╥╫!ê╪!½ç╥╪!!ê)¬æ╪    !½ê╥╪    !!ê¬ä╥┘!ê┌ æ)ç" [nil defn vectorp key 1 menu-event-p 0 event event-function event-object eval call-interactively key-binding message "%s is undefined" key-description "*Help*" prin1 princ ":\n" cmd "a keyboard macro" " which runs the command " ":\n\n" documentation "not documented" print-help-return-message] 5 "\
  25. Display documentation of the function KEY invokes.  
  26. KEY is a string, or vector of events.  When called interactvely, key may
  27. also be a menu selection." "kDescribe key: "])
  28. (fset 'where-is #[(definition) "└    ┬ ├ëë%ë½Å┼╞    ╟╚╔ ╩\"╦##ê¬à┼╠    \"ê)├ç" [where-is-internal definition current-local-map nil keys message "%s is on %s" mapconcat key-description sort (lambda (x y) (< (length x) (length y))) ", " "%s is not on any keys"] 9 "\
  29. Print message listing key sequences that invoke specified command.
  30. Argument is a command definition, usually a symbol with a function definition." "CWhere is command: "])
  31. (fset 'describe-mode #[nil "└É┴\n!ê┴├!ê┴─!!ê╞ æç" ["*Help*" princ mode-name " Mode:\n" documentation major-mode print-help-return-message] 4 "\
  32. Display documentation of current major mode." nil])
  33. (fset 'describe-distribution #[nil "└┴┬ \"!ç" [find-file-read-only expand-file-name "DISTRIB" exec-directory] 4 "\
  34. Display info on how to obtain the latest version of GNU Emacs." nil])
  35. (fset 'describe-copying #[nil "└┴┬ \"!êebç" [find-file-read-only expand-file-name "COPYING" exec-directory] 4 "\
  36. Display info on how you may redistribute copies of GNU Emacs." nil])
  37. (fset 'describe-pointer #[nil "└┴!ç" [describe-bindings t] 2 "\
  38. Show a list of all defined mouse buttons, and their definitions.
  39. This is the same as \\[universal-argument] \\[describe-bindings]." nil])
  40. (fset 'describe-no-warranty #[nil "└ ê┴├─!ê┼╞!)ç" [describe-copying nil case-fold-search search-forward "NO WARRANTY" recenter 0] 2 "\
  41. Display info on all the kinds of warranty Emacs does NOT have." nil])
  42. (fset 'view-emacs-news #[nil "└┴┬ \"!ç" [find-file-read-only expand-file-name "NEWS" exec-directory] 4 "\
  43. Display info on recent changes to Emacs." nil])
  44. (fset 'view-lossage #[nil "└É┴┬├ !!êè qêebê┼╞!êm¼ï╟╚╔╩#ê╦cê¬n)╠ æç" ["*Help*" princ key-description recent-keys standard-output move-to-column 50 search-forward " " nil t "\n" print-help-return-message] 5 "\
  45. Display last 100 input keystrokes." nil])
  46. (fset 'help-for-help #[nil "└    !┬ë╞╟╚!\"ê╔╩ !╦ !«ü ëܼè ╠ܼà ═ܽâ╬ïê╧╤ !½à╥ !¬ä╙ ù!\"ë½å╒!¬é╓ ,ç" [copy-event last-command-event nil char event help-key message "A B C F I K L M N P S T V W C-c C-d C-n C-w.  Type %s again for more help: " single-key-description next-command-event allocate-event event-to-character 8 63 ((byte-code "└┴!ê┬ ê├─!cêebêܼà╟>½▓╚>½â╔ ê╩>½â╦ ê╠═╬d!½â╧¬ü╨\"ê╤╙!╒!«é)¬C└ç" [switch-to-buffer "*Help*" erase-buffer documentation help-for-help char help-key (8 63 22 32 127 246) (22 32) scroll-up (127 246) scroll-down message "A B C F I K L M N P S T V W C-c C-d C-n C-w%s: " pos-visible-in-window-p "" " or Space to scroll" t cursor-in-echo-area next-command-event event event-to-character] 4)) lookup-key help-map eventp vector char-to-string defn call-interactively ding] 5 "\
  47. You have typed C-h, the help character.  Type a Help option:
  48.  
  49. A  command-apropos.   Give a substring, and see a list of commands
  50.               (functions interactively callable) that contain
  51.           that substring.  See also the  apropos  command.
  52. B  describe-bindings.  Display table of all key bindings.
  53. C  describe-key-briefly.  Type a command key sequence;
  54.           it prints the function name that sequence runs.
  55. F  describe-function.  Type a function name and get documentation of it.
  56. I  info. The  info  documentation reader.
  57. K  describe-key.  Type a command key sequence;
  58.           it displays the full documentation.
  59. L  view-lossage.  Shows last 100 characters you typed.
  60. M  describe-mode.  Print documentation of current major mode,
  61.           which describes the commands peculiar to it.
  62. N  view-emacs-news.  Shows emacs news file.
  63. P  describe-pointer.  Display table of all mouse-button bindings.
  64. S  describe-syntax.  Display contents of syntax table, plus explanations
  65. T  help-with-tutorial.  Select the Emacs learn-by-doing tutorial.
  66. V  describe-variable.  Type name of a variable;
  67.           it displays the variable's documentation and value.
  68. W  where-is.  Type command name; it prints which keystrokes
  69.           invoke that command.
  70. C-c print Emacs copying permission (General Public License).
  71. C-d print Emacs ordering information.
  72. C-n print news of recent Emacs changes.
  73. C-w print information on absence of warranty for GNU Emacs." nil])
  74. (fset 'function-called-at-point #[nil "└┴┬Åç" [nil (byte-code "èîe`└Z]d}ê┴┬!ê┬uê├┼p!ë9¡å╞ !¡ü +ç" [1000 backward-up-list 1 nil obj read fboundp] 4) ((error))] 3])
  75. (defvar describe-function-show-arglist t "\
  76. *If true, then describe-function will show its arglist if the function is
  77. not an autoload.")
  78. (fset 'describe-function #[(function) "└É┴\n \"ê─ êè qê┼ )æç" ["*Help*" describe-function-1 function standard-output print-help-return-message buffer-string] 4 "\
  79. Display the full documentation of FUNCTION (a symbol)." (byte-code "└ ┬─    ½å┼╞    \"¬ü╟╔┬$)ë\n╦ܽ⠠  ¬ä╠\n!*Cç" [function-called-at-point fn t enable-recursive-minibuffers completing-read format "Describe function (default %s): " "Describe function: " obarray fboundp val "" intern] 6)])
  80. (byte-code "└┴Mê┬├Mç" [describe-function-1 #[(function stream) "└    \n\"ê├─\n\"ê    ╞    !«ü╟╔\n╔ 9½ú    =¼ÿ\n½î\n╠═!╬R\n¬ê╧═!╬Q\nKë¬Z½═ó╤=¼╟ó╥=½î├A@«ü╙\n\"ê¬░╘!½î├╒H«ü╙\n\"ꬃ╓!½ƒ╫╪\"½ÿ├┘ö┘òO\n\"ê╒ëöO├┌\n\"ê\n½å├\n\n\"ê█;¼à▌!½è├▐\n\"ê▀ ¬≤╓!½çα!ê¬τ╘!½çß!ê¬█9½î├ΓπΣ!\"\n\"ê¬╦ó╥=½çσ!ê¬╛óµ=½ç├τ\n\"ê¬▒óΦ=½ç├Θ\n\"ê¬ñó╤=½₧Ω!ê├δ£½â∞¬üφ\n\"ê├ε\n\"ê└┘£\n\"ê)∩ ê ½¿├≡\n\"ê├±!\n\"ê≥!ë¡Ü├≤\n\"ê├\n\"ê├⌠\n\"ê⌡\n\"¬à├\n\",ç" [prin1 function stream princ ": " def documentation "not documented" doc nil aliases kbd-macro-p "\n     which is an alias for " symbol-name ", " "an alias for " describe-function-show-arglist autoload lambda "()" compiled-function-p 0 subrp string-match "[\n     ]*\narguments: ?\\((.*)\\)\n?\\'" 1 "\n  -- " #[(string) "└┴\n!½â├¬ü─\"ê└\"ç" [princ commandp def "an interactive " "a " stream string] 3] int vectorp "a keyboard macro." t "built-in function." "compiled Lisp function." format "alias for `%s'." prin1-to-string "Lisp function." macro "a Lisp macro." mocklisp "a mocklisp function." "autoloaded Lisp " 4 "macro" "function" "\n  -- loads from " terpri "These characters are executed:\n\n    " key-description key-binding "\n\nwhich executes the command " ".\n\n" describe-function-1] 6] variable-at-point #[nil "└┴┬Åç" [nil (byte-code "è└┴!ê┬├wê─p!ë9¡å╞!¡ü*ç" [forward-sexp -1 "'" nil read obj boundp] 3) ((error))] 3]] 2)
  81. (fset 'describe-variable #[(variable) "└É┴\n!ê├─!ê┼\n!¼å├╞!ê¬à┴\nJ!ê╟ ê╟ ê├╚!ê╟ ê╔\n╩\"ë ½ë├╠ !!ê¬ä├═!ê)╬ æç" ["*Help*" prin1 variable princ "'s value is " boundp "void." terpri "Documentation:" documentation-property variable-documentation doc substitute-command-keys "not documented as a variable." print-help-return-message] 5 "\
  82. Display the full documentation of VARIABLE (a symbol)." (byte-code "└ ┴┬╞½å╟╚\"¬ü╔\n╦┴$ë╠ܽâ¬â═ !+Cç" [variable-at-point t nil val enable-recursive-minibuffers v completing-read format "Describe variable (default %s): " "Describe variable: " obarray boundp "" intern] 6)])
  83. (fset 'command-apropos #[(string) "└┴!├─!)╞╚╔#ê¡â┼!)ç" [get-buffer-create "*Help*" standard-output print-help-return-message identity message apropos string t commandp] 4 "\
  84. Like apropos but lists only symbols that are names of commands
  85. (interactively callable functions).  Argument REGEXP is a regular expression
  86. that is matched against command symbol names.  Returns list of symbols and
  87. documentation found." "sCommand apropos (regexp): "])
  88. (fset 'locate-library #[(library &optional nosuffix) "└    \n ?¡ü─#ë½ç╞╟\"ê¬à╞╚    \"ê)ç" [locate-file library load-path nosuffix ".elc:.el:" file message "Library is file %s" "No library %s in search path"] 5 "\
  89. Show the full path name of Emacs library LIBRARY.
  90. This command searches the directories in `load-path' like  M-x load-library
  91. to find the file that  M-x load-library RET LIBRARY RET  would load.
  92. Optional prefix arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el'
  93. to the specified name LIBRARY - a la calling (load LIBRARY nil nil t)." "sLocate library: \nP"])
  94.